1 HOME :S = -16336:C = PEEK(33) -1: DIM A(C): POKE 35,23: VTAB 24: FOR Z = 1 TO C: PRINT "^";: NEXT Z: FOR Z = 768 TO 785: READ A%: POKE Z,A%: NEXT Z: DATA 56,251,226,48,162,255,160,150,173,48,192,136,208,253,202,208,245,96: FOR Z = 1 TO C
2 H = RND(1) *C: PRINT : ON (A(H) < >0) GOTO 2:A(H) = H: VTAB 24: POKE 36,H: PRINT " ";: POKE 36,13 +((C = 79) *19): PRINT "]Saudi Nights[": VTAB 23: POKE 36,H: PRINT "^": POKE 36,H: PRINT CHR$(34): CALL 768: NEXT : FOR Z = 1 TO 24: PRINT : NEXT : TEXT : VTAB 1
